home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)tv.d64
/
slideshow.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
732b
|
24 lines
5 IF A=0 THEN DIM A$(25)
10 IF A=0 THEN A=1:LOAD"HRSUPP.D",8,1
15 IF A=2 THEN 120
20 BA=6*16^3:REM BASE ADDRESS
30 IN=BA
40 RS=BA+3
50 CL=BA+6
60 I=-1
70 I=I+1:READ A$(I):IF A$(I)<>"END" THEN 70
80 PRINT"HIT 'C' TO CONTINUE":FOR J=0TOI:PRINTJ;A$(J):NEXTJ
90 INPUT"WHICH NUMBER";N
100 IF N=I THEN GOSUB130:END
110 SYSIN:A=2:LOADA$(N),8,1
120 GET A$:IFA$="C"THENGOSUB130:GOTO80
125 GOTO120
130 SYSCL:SYSRS:RETURN
140 DATA DRAGON.D
150 DATA TANK.D
160 DATA POLISH.D
170 DATA BLITHER.D
180 DATA UNCLE.D
190 DATA GLOCKENFLUTE.D
200 DATA END